home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / runPAL.lha / runpal / runPAL_11.s < prev    next >
Encoding:
Text File  |  1997-01-21  |  934 b   |  56 lines
  1.  
  2.  
  3.     incdir    demo:
  4.     include    includes/exec_lib.i
  5.     include    includes/dos_lib.i
  6.     include    includes/graphics_lib.i
  7.  
  8.     section    runPAL,code
  9.  
  10.     cmp.b        #10,(a0)
  11.     beq.w        exit
  12.     subq.w        #2,d0
  13.  
  14.     lea        name,a1
  15. loop    move.b        (a0)+,(a1)+
  16.     dbf        d0,loop
  17.  
  18.     openlibrary    graphics,0
  19.     beq.w        exit
  20.     openlibrary    dos,0
  21.     beq.w        exit
  22.     move.l        graphicsbase,a6
  23.     move.l        $22(a6),prev_view
  24.     sub.l        a1,a1
  25.     call        loadview
  26.     call        waittof
  27.     call        waittof
  28.  
  29.     open        #nilname,#MODE_NEW,nilhandle
  30.     move.l        #name,d1
  31.     move.l        #0,d2
  32.     move.l        nilhandle,d3
  33.     calldos        execute
  34.     close        nilhandle
  35.  
  36.     move.l        prev_view,a1
  37.     callgfx        loadview
  38.     closelibrary    dos
  39.     closelibrary    graphics
  40. exit    moveq        #0,d0
  41.     rts
  42.  
  43.  
  44.     section    runik,data
  45. graphicsname    dc.b    'graphics.library',0
  46. dosname        dc.b    'dos.library',0
  47. verstring    dc.b    '$VER:runPAL v1.1 by Noster of Venture. 13.10.96',0
  48. nilname        dc.b    'NIL:',0
  49.  
  50.     section    runniczek,bss
  51. graphicsbase    ds.l    1
  52. dosbase        ds.l    1
  53. prev_view    ds.l    1
  54. nilhandle    ds.l    1
  55. name        ds.b    256
  56.